home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr50 / qbmnus16.zip / ALTSAMP.BAS next >
BASIC Source File  |  1993-04-16  |  821b  |  43 lines
  1. DECLARE SUB AltKeyMenu (row, fc, bc)
  2. CLS
  3. AltKeyMenu 1, 15, 9
  4.  
  5. SUB AltKeyMenu (row, fc, bc)
  6. col1 = 2
  7. col2 = 12
  8. col3 = 22
  9. col4 = 32
  10. col5 = 42
  11. col6 = 52
  12. col7 = 62
  13. col8 = 72
  14. COLOR fc, bc
  15. LOCATE row, 1: PRINT STRING$(80, 0)
  16. LOCATE row, col8: PRINT "Quit"
  17. LOCATE row, col1: PRINT "Phillies"
  18. LOCATE row, col2: PRINT "Cubs"
  19. LOCATE row, col3: PRINT "Mets"
  20. LOCATE row, col4: PRINT "eXpos"
  21. LOCATE row, col5: PRINT "marLins"
  22. LOCATE row, col6: PRINT "piraTes"
  23. LOCATE row, col7: PRINT "cArds"
  24. DO
  25. DO
  26. keys$ = INKEY$
  27. LOOP WHILE keys$ = ""
  28. keymove = ASC(RIGHT$(keys$, 1))
  29. SELECT CASE keymove
  30. CASE 16: END   'ALT Q
  31. CASE 25: END   'ALT P
  32. CASE 46: END   'ALT C
  33. CASE 50: END   'ALT M
  34. CASE 45: END   'ALT X
  35. CASE 38: END   'ALT L
  36. CASE 20: END   'ALT T
  37. CASE 35: END   'ALT A
  38. END SELECT
  39. LOOP
  40. END
  41. END SUB
  42.  
  43.